home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / bbs / euroaway / euroaway.pas < prev    next >
Pascal/Delphi Source File  |  1992-07-10  |  1KB  |  55 lines
  1. type
  2.   jono     = string[80];
  3.  
  4. var
  5.   infil    : text;
  6.   outfil   : text;
  7.   sisaan   : jono;
  8.   filname1 : string[32];
  9.   filname2 : string[32];
  10.  
  11. procedure tarkista(var sisaan:jono);
  12.  
  13. var  paikka : integer;
  14.  
  15. begin
  16.      paikka := pos('.EURO',sisaan);
  17.      if paikka > 0
  18.      then begin
  19.               sisaan := copy(sisaan,1,paikka+2);
  20.           end;
  21.  
  22.      paikka := pos('.NOAM',sisaan);
  23.      if paikka > 0
  24.      then begin
  25.               sisaan[paikka+2] := 'A';
  26.               sisaan := copy(sisaan,1,paikka+2);
  27.           end;
  28.  
  29.      paikka := pos('.ASIA',sisaan);
  30.      if paikka > 0
  31.      then begin
  32.               sisaan := copy(sisaan,1,paikka+2);
  33.           end;
  34.  
  35. end;
  36.  
  37.  
  38. begin
  39.      filname1:='c:\fbb\system\hroute.sys';
  40.      filname2:='c:\fbb\backup\temp.$$$';
  41.      assign (infil,filname1);
  42.      assign (outfil,filname2);
  43.      rewrite (outfil);
  44.      reset (infil);
  45.      while not eof(infil) do
  46.      begin
  47.           readln (infil,sisaan);
  48.           tarkista(sisaan);
  49.           writeln (outfil,sisaan);
  50.      end;
  51.      close (infil);
  52.      close (outfil);
  53.      writeln('Rename temp.$$$ to hroute.sys');
  54. end.
  55.